home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byte0787.arc / IWPAS.ARC / HISTO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-04-28  |  1.0 KB  |  34 lines
  1. {$P512}
  2. PROGRAM Histo(input,output,picfile);
  3.  
  4. { Copyright (c) 1987, Ciarcia's Circuit Cellar          }
  5. {    All Rights Reserved                                }
  6.  
  7. {$U- control-break checking during execution            }
  8. {$C- control-break checking during I/O operations       }
  9. {$R- array range checking                               }
  10.  
  11. {$Ideclares.p                   declarations            }
  12. {$Ihexutil.p                    hex utilities           }
  13. {$Iserial.p                     serial interface code   }
  14. {$Ipictures.p                   picture file code       }
  15. {$Iimages.p                     image processing        }
  16.  
  17. BEGIN
  18.  
  19.  LowVideo;
  20.  
  21.  pic1 := NIL;                   { ensure new alloc      }
  22.  PicSetup(pic1);                { set up picture array  }
  23.  
  24.  filespec := GetFSpec(ParamStr(1));
  25.  
  26.  LoadPicture(filespec,pic1);
  27.  
  28.  Writeln('Computing histogram...');
  29.  Histogram(pic1,histo);
  30.  ClrScr;
  31.  ShowHist(histo);
  32.  
  33. END.
  34.